home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / soseng.zip / EXAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-17  |  936b  |  38 lines
  1. Program EXAMPLE;
  2.  
  3.  
  4. {$L SOSFUNC.OBJ}
  5.  
  6. USES Dos;
  7.  
  8.   {You only need to declare the functions that you actually want to use}
  9.  
  10.   Procedure SeOnLog ; Far; External;
  11.   Procedure SeOffLog ; Far; External;
  12.   Procedure SeOnRead ; Far; External;
  13.   Procedure SeOffRead ; Far; External;
  14.   Procedure SeOnWrite ; Far; External;
  15.   Procedure SeOffWrite ; Far; External;
  16.   Procedure SeOnPointer ; Far; External;
  17.   Procedure SeOffPointer ; Far; External;
  18.   Procedure SeOnMemory ; Far; External;
  19.   Procedure SeOffMemory ; Far; External;
  20.   Procedure SeOnCl ; Far; External;
  21.   Procedure SeOffCl; Far; External;
  22.   Procedure SeOnFile ; Far; External;
  23.   Procedure SeOffFile ; Far; External;
  24.   Procedure SeOnDir ; Far; External;
  25.   Procedure SeOffDir ; Far; External;
  26.   Procedure SeOnFa ; Far; External;
  27.   Procedure SeOffFa ; Far; External;
  28.  
  29.  
  30. Begin
  31.  
  32.   {Let's just activate logging with all options active}
  33.  
  34.   SeOnLog;
  35.  
  36. end.
  37.  
  38.